;Metodos para manejar la tabla de mensajes
;Los mensajes son un conjunto por lo que no puede haber mensajes repetidos

(defparameter *lista-fuerzas* (list ))

(defun posicionFuerza (msg)
  (search msg *lista-fuerzas* :test 'equalp)
  )

(defun addFuerza (msg)
      (setf *lista-fuerzas* (append *lista-fuerzas* (list msg)))     
  )

(defun getFuerzaAt (i)
  (nth i *lista-fuerzas*)
  )

(defun setFuerzaAt (i val)
  (setf (nth i *lista-fuerzas*) val)
  )

(defun resetFuerzas ()
  (setf *lista-fuerzas* (list ))
  )

